home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 03 - 1987 / 03.03 Mar 87 / Basic Graf3D / MS Circle < prev    next >
Encoding:
Text File  |  1987-02-09  |  762 b   |  38 lines  |  [TEXT/MSBB]
  1. ' 2D Circle Demo
  2. ' ©MacTutor March 1987
  3. ' By Dave Kelly
  4. ' MS Basic version
  5.  
  6. WINDOW 1,"",(122,22)-(424,324),3
  7. MainRoutine:
  8.     DIM x!(360),y!(360)
  9.     pi!=3.141593
  10.     DEF FNrad(deg)=pi!*deg/180
  11.     LOCATE 2,2:TEXTSIZE 9:INPUT "Enter step value: <18> ";Stp
  12.     IF Stp=0 THEN Stp=18
  13.     CLS
  14.     PENMODE(8)
  15.     LOCATE 2,2: PRINT"Step =";Stp
  16.     FOR n=1 TO 360
  17.         Angle=FNrad(n)
  18.         x(n)=(SIN(Angle)+1)/2*WINDOW(2)
  19.         y(n)=(COS(Angle)+1)/2*WINDOW(3)
  20.     NEXT n
  21.     FOR n=1 TO 360 STEP Stp
  22.         m=n+1
  23.         WHILE m<>n
  24.             MOVETO x(n),y(n)
  25.             LINETO x(m),y(m)
  26.             m=m+Stp
  27.             IF m>360 THEN m=1
  28.         WEND
  29.     NEXT n
  30. LOCATE 25,2:PRINT "Press any key";
  31. key$=""
  32. WHILE key$=""
  33.     key$=INKEY$
  34. WEND
  35. WINDOW CLOSE 1
  36. END
  37.  
  38.